www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminLabel\D_admin_sys_label-oldver-bak.asp

    <%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>





<LINK href="../css.css" type=text/css rel=stylesheet>
<%

dir_set="../../"


%>


<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->

<!--#include file=../../inc/ajaxLIB.asp-->

<!--#include file=../inc/checkadmin2.asp-->



<%
AJAXshowLoader()


%>



<div  id="l_list" style="filter:blendTrans(duration=1);  width:774px; z-index:-1; border: 1px dashed #999999;left: 3px; top: 120px; height: 121px;width:730px">


<table  height="107" width=730 border="0" cellpadding="0" cellspacing="0" bordercolor="#999999">








<%

'qqqq1=rs.recordcount



	CurrentPage=replacebadchar(request("page"))
	if CurrentPage="" then
	CurrentPage=1
	else if not IsNumeric(CurrentPage) then
	CurrentPage=1
	else if int(CurrentPage)<=0 then
	CurrentPage=1
	else
 	CurrentPage=replaceBadchar(request("page"))
 	end if
	end if
	end if
	

yy=4

xx=5


	maxperpage=xx*yy



strFileName="D_admin_sys_label.asp"
set rs=server.CreateObject("adodb.recordset")




if request("pid_list")="" then
deepth="0"
pid_list="0"
else


deepth=request("deepth")
pid_list=request("pid_list")


end if

if deepth="0" then 


p_id="0"


else




lista=split(pid_list,",")
numa=ubound(lista)
p_id=cstr(lista(numa))


end if


'parent_id_list like '% pid_list %'
        
rs.open "select * from ND_label_folder where ((deepth="&deepth&" and  folder_or_file='1' and parent_id_list like '%"&pid_list&"%') or (  folder_or_file='0' and  id_in_folder='"&p_id&"'  )) order by cint(folder_or_file) desc,id desc",conn,1,1





			  
			  
			  
			  if not Rs.eof then
	Rs.pagesize=MaxPerpage
	totalnumber=Rs.recordcount
	if totalnumber mod maxperpage=0 then
   MaxPage= totalnumber \ MaxPerpage
  	else
   MaxPage= totalnumber \ MaxPerpage+1
  	end if
	if int(CurrentPage)>int(MaxPage) then
	CurrentPage=MaxPage
	else
	CurrentPage=CurrentPage
	end if
	Rs.absolutepage=CurrentPage




		for ixx=1 to xx
 


		if Rs.eof then exit for
%>


<tr width=730 align=center>


<%
		
		
		for iyy=1 to yy
 


		if Rs.eof then exit for
		


if rs("parent_id_list")="0" then

ssss1=""
else

ssss1=rs("parent_id_list")&","

end if

ppp_list=ssss1&rs("id")

dddeepth=rs("deepth")+1

if rs("folder_or_file")="1" then

sss2="D_admin_sys_label.asp?pid_list="&ppp_list&"&deepth="&dddeepth

else

sss2="D_view_or_copy_sys_label.asp?id="&rs("id")&"&my_pid_list="&rs("parent_id_list")&"&my_deepth="&rs("deepth")
end if
		
			  %>


<td width=50  align=center>




<table  width=150 style="word-break:break-all">


<tr>

<td>







<%if rs("folder_or_file")="1" then%>

<a href="<%=sss2%>">
<img src="../IMG/Folder/folder.gif" border=0>

</a>

<%else%>

<a href="<%=sss2%>">
<img src="../IMG/Label/label3.gif"  border=0>
</a>

<%end if%>
</td>

</tr>



<tr>

<td width=160  style="word-break:break-all">
<a href="<%=sss2%>">
<%=gottopic(rs("label_folder_or_file_name"),26)%>
</a>
</td>

</tr>

</table>

</td>









  <%
			 Rs.movenext
			  next

%>



</tr>





  <%
			

			  next

%>






<%
			  else
			  %>
			  <tr><td colspan="7"  class=maintext align="center"><font color="#FF0000"><strong>没有内容……</strong></font></td></tr>
			  <%end if
			  
			  
			
			  Rs.close
			  set Rs=nothing
			  %>
			        
					
					
					
					
					
					
					<tr>
        <td  colspan="7" align="center" height="27" bgcolor="#FFFFFF"><%call showpage(strFileName,totalnumber,MaxPerPage,true,true,"个",CurrentPage)%></td>
      </tr>
	   <tr>
        <td  colspan="7" align="center" bgcolor="#FFFFFF"></td>
      </tr>
</table>




</div>






<script language=javascript>
AJAXfade(1,'l_list')
</script>


<%
AJAXcloseLoader()
%>